home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 2 / CD Loisirs 02 / CD Loisirs CD 002.mdf / pc / nympheas / sources / s158_010mone.k < prev    next >
Encoding:
Text File  |  1994-01-01  |  1.4 KB  |  96 lines
  1. object S158_010MONE is MEDIADISTRIBUTOR
  2. with
  3.     Duration is -1;
  4.     X is 0; Y is 0; Width is 640; Height is 480;
  5.     Items is [
  6.         S158A4_010_PIC,
  7.         S158A1_S10A_WAV,
  8.         S158A2_BOUTON_DEBUT,
  9.         S158A3_BOUTON_MENU
  10.     ];
  11. end;
  12.  
  13. object S158A4_010_PIC is MEDIADELEGATOR
  14. has
  15.     
  16.     OffScreen()
  17.         do
  18.             self.Run(true);
  19.             TRANSITION.Set(WipeTop, 300);
  20.             self.Show(true);
  21.         end;
  22.     
  23.     Finished()
  24.         do
  25.             S158A1_S10A_WAV.Run(true);
  26.         end;
  27.     
  28. with
  29.     Target is C320_010_PIC;
  30.     Duration is 60;
  31.     X is 0; Y is 0; Width is 640; Height is 480;
  32. end;
  33.  
  34. object S158A1_S10A_WAV is MEDIADELEGATOR
  35. has
  36.     
  37.     OffScreen()
  38.         do
  39.             self.Enable(true);
  40.             self.Show(true);
  41.             self.Run(false);
  42.         end;
  43.     
  44.     Finished()
  45.         do
  46.             APPLICATION.GoTo(S159_020RENO);
  47.         end;
  48.     
  49. with
  50.     Target is C322_S10A_WAV;
  51.     Duration is 0;
  52.     X is 201; Y is 151; Width is 32; Height is 24;
  53.     HotRegion is {
  54.         $00180000, $FFFFFFFF
  55.     };
  56. end;
  57.  
  58. object S158A2_BOUTON_DEBUT is MEDIADELEGATOR
  59. has
  60.     
  61.     OffScreen()
  62.         do
  63.             self.Enable(true);
  64.             self.Show(true);
  65.         end;
  66.     
  67.     MouseUp(theX, theY)
  68.         do
  69.             APPLICATION.GoBack(MEDIADISTRIBUTOR0);
  70.         end;
  71.     
  72. with
  73.     Duration is -1;
  74.     X is 537; Y is 434; Width is 91; Height is 35;
  75. end;
  76.  
  77. object S158A3_BOUTON_MENU is MEDIADELEGATOR
  78. has
  79.     
  80.     OffScreen()
  81.         do
  82.             self.Enable(true);
  83.             self.Show(true);
  84.         end;
  85.     
  86.     MouseUp(theX, theY)
  87.         do
  88.             APPLICATION.GoTo(S20_011MOME);
  89.         end;
  90.     
  91. with
  92.     Duration is -1;
  93.     X is 537; Y is 391; Width is 90; Height is 35;
  94. end;
  95.  
  96.